*********************************************************************************
* Supplemental Material, Figures S5.1-5.3										*
*********************************************************************************

* Project: 	No Zeitenwende (yet)
* Authors: 	Matthias Mader
* Date:		March 2023	

* Data: GLES panel survey, W1-W22

*********************************************************************************

*** Setup

	clear
	set more off            						// Disable partitioned output
	set dp period									// Use comma instead of dot for decimals
	set linesize 80         						// Line size limit to make output more readable
	macro drop _all         						// clear all macros
	set scheme plotplainblind, permanent				// set graph scheme, e.g., cleanplots, plottig plotplainblind, burd3, s1mono
	graph set window fontface "Times New Roman"		// set font in graphs | "Arial" | "Times New Roman"


*** Figure S5.1

	use "DATA_FiguresS5.dta", clear

	graph dot spending_d22 spending_d17, over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Increase military spending", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(45, lcolor(eltblue))  ///
		yline(21, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure1, replace)

	graph dot annex_w22d annex_w8d, over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Oppose annexation of Crimea", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(56, lcolor(eltblue))  ///
		yline(31, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure2, replace)

	graph dot relationputin_d22 relationputin_d2 , over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Strive for good relations with Putin", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(18, lcolor(eltblue))  ///
		yline(40, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure3, replace)

	graph dot confrrus_d22 confrrus_d16 , over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Confrontational RUS policy", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(35, lcolor(eltblue))  ///
		yline(19, lcolor(red))  ///			ACTUALLY 27; MOVED SLIGHTLY TO THE LEFT
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure4, replace)

	graph dot confrchi_w22d confrchi_w16d , over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Confrontational CHI policy", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(27.3, lcolor(eltblue))  ///
		yline(26.8, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure5, replace)

	graph dot borders_w22d	borders_w21d , over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Protect EU borders", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(66, lcolor(eltblue))  ///
		yline(63, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure6, replace)


*** Figure S5.2

	graph dot feelrus_d22 feelrus_d21 , over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Favorable views of RUS", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(08, lcolor(eltblue))  ///
		yline(15, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure7, replace)

	graph dot feelus_d22 feelus_d21 , over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Favorable views of CHI", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(49, lcolor(eltblue))  ///
		yline(48, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure8, replace)

	graph dot feelchi_w22d feelchi_w21d , over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Favorable views of CHI", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(9, lcolor(eltblue))  ///
		yline(10, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure9, replace)


*** Figure S.5.3

	graph dot mili_w22d	mili_w21d , over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Use of military force", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(20, lcolor(eltblue))  ///
		yline(18, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure10, replace)


	graph dot multi_w22d multi_w21d , over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Multilateralism", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(57, lcolor(eltblue))  ///
		yline(53, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure11, replace)


	graph dot iso_w22d	iso_w21d  , over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Isolationism", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(30, lcolor(eltblue))  ///
		yline(35, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure12, replace)


	graph dot atla_w22d	atla_w21d  , over(var_str, sort(var) label(labsize(medlarge)))  ///
		marker(1, msize(large) msymbol(dot)	mcolor(eltblue)) /// w22: 2022
		marker(2, msize(large) msymbol(circle) mcolor(red))   /// w21: 2021   mlwidth(0)
		title("Atlanticism", size (medlarge)) ///
		legend(order(2 "Pre-invasion" 1  "Post-invasion" ) size(medlarge) row(1) position(6)) ///
		yscale(range(0 (20) 100)) ylabel(0 (10) 100, labsize(medlarge)) ///
		yline(50, lcolor(black))  ///
		yline(14, lcolor(eltblue))  ///
		yline(9, lcolor(red))  ///
		graphregion(margin(0 0 -5 0)) ///
		ysize(3) xsize(3) ///
		name(figure13, replace)